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FOBJyiJJLA MJQOL - A RAPID DISSGRIHIIOK 



Forn'iulii Algol wic t:l»s resiiit of: adding two nex-i da'ca. types tc Alj^jole, 
Objects of type, SY^-IEQL uhicli are .lists aad objects of type gOiM x'7liich are 
foriTiuiaa. vJe liave^ in adrlitionj, ?§x^L, IM^^GER, EOpJ-^AHs M§M ■'^^''•^^'*-'''^-^^"' 

We shall ]i:ead die r^'sSar manual t>y Jay Earley in the follcuiiig order: 

Suggested reading order: 

Raad the pr.x't of Chapter Ton Tjist Processing, p, AL-'S-S .--> p. AL-3-'!2„ 
Tlien read Ghsptar 4 on list processings ignoring any parts which refer 
to F0R14 variables. Do a list exercisco 

2o FOEMULAE "'. 

Read Cnapterl, p, AL-S-l -> p. AL-3~8. Then read Chapter 3 on formula 
maniiv^^lation but leave out the section on Evaluation;, p., .AIi-3-32 -> 
po AL-3-36, Do a formula exercise. 

3o Evaluation of foroiulae 

Ec-vi do Po AL-3-32 -> p. AL-.3-36., Do evaluation e:xercise, 

A li'Iarkov algorithra to clear rational fractions 

BEGIN mim A, Bj G, D, N; 

iv <-,A:i-\.KY; B <-BsANY; C c-GsAKY; D <-D:AKY; H -s-NsAi^Y; 
T <- /[OPBRATOR: •>] [CO>M; TRUE 3 ; 
P ~>/[0PERAT0R:-r][C01M:tRUE;i; 

"::] . ■ RATIOIML <~ [■[ ' 

(a/b)v(c/d) o-^ • („A^oC)/(.2^.D) 

(a/b)/(g/d) „■-. (oA-^'-„D)/(o3^'oG) 

(a/b> .-ItI g -> . (oA'^.g)/„b 

(A/b)/c »-> . oA/CB-'-oC) 3 

C/{A/b). o~> (c,B''-oG)/.A 

(A/B)tH .-> .A'foM / ./Bt.H , 

.X5SL ."i^ZZZJ^C- 
A/'B'J-.f^/D ,-> (oA^v^B -!- oC'''.B)/(oBv'.\D) 
A/b .. g/d ,-> (oA''i^.,D - „C-'>-%B)/(<,B5^oD) , 
A/b |2?| C .-4 . (cA -^- oC^',B)/.B , 
a/b " G .-> C-A - ,C^v/B)/„B 3 
C » a/B .-3. (oC-^oB -. .A)/.B s 
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SMOL_yariQbles_;» Part 1 
Gqaatrucjiloii of _,l^-g,^.-^ 

Lists can be built up by asaigamaat: stateEstiCs like 
A <-.[B, C, D3; 
This 3 tateraent actually evaluates B, C aad D before foraiiBg tike list. To 
prevent evaluation (like QUOTE in Lisp) ^le use q dot, thus after 

the value of A is [B, Cj D]. X£ A has this value and tj3 perform 

E <-[A, -F, -G]; 
wa get [Bj Gg Dj F G] as the value of E. If 

E<-[[A3;-F3; 
then [[B, C, D], F]. 

Not© that a list of oae elcaaiit is an atoa so A <t-[3] assigns the I'^alwe 
3 to Ac To get a list we use A <-[C333,. 

Also that objects on the Isftliand side of assignment stateoisnt are evalu- 
ated if composite objects (symbolic expressions) and not if atoaiSo 'liiis 
accords with Intuition. Tims A <-[»B5 ^G] puts [B5G3 as value of Ac 

■ '^SISE. ^ <-['C9 '03 puts [Cs D3 as value of Be Atoms are 
initialized autociatically upon declaration to have themselves as value^ 
e.goj A <- .A;. 



Altera tion of lis ts 

To alter a listg one must select part.s ■ to 'be altered and than perform 
some type of editing statement, " Selectors can be ordinal or by kind « 
E^iamples of ordinal selectors ares 
.IST.; 2^ro, HTK, MST 
NTH BEFORE, imi, '■ ■ 

.?1S§S1 '^§1 PS MiR^ ^^^ SEFOHB I'm 

kind selectors are 



These celectora can be nested arbitrarily, thus 



.J3^ 



'MTEQKFJs are an eijceptiosia FIBgT 3 means the first 3 elemsnts.-iuid gljlST 
XgffigER 3 mean "diG fii'sC cccurramce. .of 'cIig ititeger 3. 

Having SQlQcii;ed_ pairtfj of a ii,st one can alter it bjy e'diting';' 3tate« 
manto asid wg; use.W to connsct tlisiflo l^uSj, 
■ DELETE 1ST KEAL-. '-OF ''A 
ALTER 2£JD SUBLXST OF JJ TO [♦C, -B] 
Hote that a USAL elemant of a list is aa esipltcit constOEit like- Vol » 
^v^ereao an identifier \viiicli is declaired as REAL is a symbolic object and 
selected as a I'Qgllo The exception is, if declared as S^ffl^ tlied'it is a 



•IF A « B '^M ■ 
TS.US if the value of A is esractly equal to the value of B. 

Description liots 

As usll as a list being attached to each atom as its value^ there is 
aaotlier kind of list nhicli can ba attachedo This is an. association listo 

A <-./ [.B ; .C]5 
OiiQ can retrieve a value hy 

^ ">.^g *B OF A; 
Attributes and values are ssnabolic objects and must be declaradi One cau 
have many different attribute-value pairs on the descri-ption list; alsOj, 
values can be lists of values. 

A'^PLSS <."/ ['COLOR :-HED, ^GRES^l] [-SHAPE,: "ROIEIDls 
One can also retrieve a value ty GOLOIl (APPLES )5 provided the retrieval 
esspression COLOR is an atoaia One can altar description lists by editing 
statements 

WE "COLQU, 01' APPLISS IS "-BLUE. 
" IS HOT -HED. 

«' . • •. IS ALSO'BLUS. 

1^0 te the difference between and necessity for i-apM IS, TJiua 

'm: -SEAPS OF APPLES <~ 'SQU/iRS; aosigao SQUARE to the 
variable RODiBo 

A V-K3B "COLOR 0? APPLES; 
assigns A 'diG value [RBDj GRSSH]*, 
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An attjribuCe, upon Gssignmeat. or. retrieval 5 can be a composite eisprsssioiHj 
but it must evaluate to an a tea. 

Pa tterKS 

As wall as celecting and alte'riag definite paicto of lirsts^ oae can 
look for cejrtain forms of listi 
Thus BC■OLSA]^T 2; 

■ S,«-t-A, 1, .B5 »ci'.I.B, *S, .F], .G, .A, -A, -C]; 
ZVS «> ['A, imGSks$5 '>A, $2] 
assigns the value TSIUB to So llie pattern consists of a list with atoms, 
i:liiich Eoatch to occurrences of tliemselves, e.go^ ^ x^?ill baly match to an 
occurrecce of A, type words like IK^SGSR- ASIY« etCe, $H meaning any H 
objects and $ Eeaning any number of any types of objecto This use of 
reserved words as data objects is very interesting. One can set up a 
pattern as a value of some atom, e«g« » 

P <-[RSAL, $, -A3; 
and one can then matchp e,gos 

^ S w « P ^™> ®^^' 
Thus 5 the pattern is subjected to evaluation before the match is 
applied o 

R ^ 'S; 
F as ss il matches the value of F to the atom S 

F =3 £* "R matches the value of F to the atom R„ 

P <- l^^9 $9 R] 

assigns the pattern [Ji^s $j> S] to ^« 

F sa :.« P 

tratches the value of F to [S?^^^:^ $» S]f. 

One can even match patterns against patterns in t^Mch case the single » 
is needed a Tliis «: can be used to match for exact equality for any tuo 
lists, in particular for pattern lists. « -^ REAL matches any realj kj RgAL 
matches to the reserved identifier RE^. 

In addition to matching on c:cact atomsj type words and any number of 
objects^ die user can define his own types or classes, using lists* 

V ^-["A^.E, ■-!,• -0, ;UI;..^ 
MK (|TOW15L|) .r. [:: f Aims (X^ V)] defines a class called ([VOI'JELJ), 
•'{.4-iGre Vd'EX* is a ayrabol variable p meaning membership of the list Vo . 
This can hz ntiQd ±i\ a pattern; thus. 
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b; s.=^.« (jvois;LJ) ^g|o 

Actually one naeda't only use t^iie.iystem fnactioa AI-£GHSo one. can use any 

Boolean procedure or expression to def itie a class of objects, vIjBo those 

for x^ich it. returns the value SRIII. 

LET (JIHOI |) W [2C j X > A i.> '1] 

One con optionally use esttractors in any pattern matcho 

F «2 3 f •! s IHTEGBR.'.,«A,>" $2... >B s ^.:^»G s <JTO?EL|)J 
if matched to [3 J A^ B^ G^ Dj A]^ iien corresponding values are extracted 
into tlie extractors. Thus, Xj B^ C have values 3g D, Ao 

Esstractors can be present in at asJsigmaant of a pattern yaliie 

?.<"[•! s ^^EGM-p:, -A3 
and they are evaluatied before use „ /iius, 

F *.» i« RHE 1SS OF A : XI 



FOE^ ' yar iablea ■;.« ;"-Par t 1 
Construct ion of formMgG 

A formii^ is a symbolic objec£". whose form is anything like an Algal 
eirpressioEio ^us^ 

F ->3 * Sl£l(-6V^- 2 5 • 

G <- -IF -X >. "T iHSH .'X ELSE -Y; 

E 4-.PR0C •(oSg oY)5 ■ 
• B H>Ao [W-^:|; 

H <-X —> -Y 
set up the follotTing values as. symbolic entities. (2C -J* Y) t 2^ .3 ^SXJTCG) -^2^ 
IF X > Y THEN X ELSE Y, JPUCCCtj- Y), iACX, Y]^ X <5-Y. 
If the variables are undotted, they are evaluated ^ thus after 

A <- 'B; 

C <~SBT(A); 
A has value ;B and G has value SIN (B)o Real, Integer , Boolean and 
Logic variables can be used in form«232 and evaluate is the usual'' X7ay, 
Thus, C <-oX5 A.<-(3ol42/2); B'VSINCA)^^^^,-^ 

B has the value 1 •^5* Xo 

One can use a symbol variable- to. define a variable which takes as its 
value, one of .•^, -^ ''j etCo It can be aissigned values and used'in con- 
structing formlae^ thus 

R «-/ f OPERATOR : -i-, ~ /l tCOm ; TRIJE, FALSE, FALSE] [n?DEXVs J] 
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J of type ini:egei% 

ISiea if P., Uqs valu^ -I- and E V «A |<K>j -B; 

E lias value". A i^- Bo 

F.QJ ^ta^lQ patterns 

la a 33.{ailar way to lists j one can use patterns to analyze the 
structure of a formula , Patterns can be any forciula and can use atoms, 

type ijords or classes, 

.'■'•• ■'.•..■«•■■■' 

' ' .F « « »A , F--^ i^ REAL , F « «« AHY 
F « K OF (B) 

uhere B is a user defined Boolean procedure of one argument defining n 

class of objects* 

F « « .A •^ .B-, F « «* aXF oX THEN oY EJLSE oS 

F « « A, [;x, .Y] , F w « A, (,X, .Y) , F w « ,2o ■«-- .Y 

In addition, one can define a class of patterns by using a list of 

patterns P «--[P^a ^n> ••• ^ 3» then F ?= =5 P matches if at least one of 

P. j> o.o P match F. 
In 

One can use a variable operator 
:F « « „A I K j .3, . 
Extractors can be used in the usual way. 

If the pattern match F as ^j ^A JR[ .B is used, it tuatches R if the 
binary operator* in the formula occurs as a value of the descriptor OPERATOR 
on^the description list of R^ The extracted value is not availablej, but 
can be deduced from tSie BIDBX xfaich contains an integer uhich is the order 
of the operator, Thus, uith the assignment in die prevJ.ous 3ect5.oa and 
F <£- ,A - oB; Z <~F « « .A IrI .Bj Y <-THE IKD331C OF R; 

Z now has WM and Y has 2, Since -l- has CfflM value TRUE a F <~ oB -> cA; 
Z <-F « ^ .A |r| eB; gives TRUE, 

In addition to the ^ « construction Tv-hich matches the entire formulaj, 
we can test for inclusion of a pattern somaxj^'Sre in the formula using »• 

F » P catches if F contains a subexpression which matches tiie 
pattern Po 

In this case, we can use aii extractor on Fo 
A : F » 3 : F 
iiaanSj If a match occurs^ the subexpression of F i^ich ciafcclied P is stored 
as the value of Bo The old rvalue ofB is substituted for the suTsexpression 
in F and this undated F is storied as die value of A, 
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ic: nppiied zc ^iV.a forii^ixln I?, by nn^chlii^ :? ^ -..-^ 1*, ii: no i>L:it:ch. d'cua i^ 
npiili.cyblo, I'f ^ ^i^.tviatch ^'TC e::tr;i':i*:: .th^^ c;f,.:.bavpr::ii:r:^i.on3 into l:hi:! ■:^:.:v rector 3 
iiad suDJ-iliiliutci tlicri in tha Gicp:jj:::3lcn G^, liliis VGlir:; ia than nLici^iied to F, 
Tiu:3 appl3^iiiif:i; _ .■■•..'■. 

A t j^^lY " (D ; ^iJJIY •:• C: : MY) -> .A •'■ oB •> ,A ''■ .G,. 
to the ? x-hai:o' ? ^ '^ .Z t ^^ ^ ^'■~ *''1?]:I ('^)) ? e:::trnct£^ i: t , 2,,' ^ ^i^^jid 
^nUZ) into a, U, C fiLid ;isnl5Q:- T the ViJlra li ■] 2 ^- Y v i: ; 2 •'' .^'HU^)- 
Prad{!C':;loi:is; :;ire i:et up rjs ■achei!::::^ by Gncirjning lisriis cf them fio ^^mibol' 
v^rinblGG. li; ccri r;Q -elCliGr <: se'cie^i or pnrallel' ccl^cr^n 

and' the scheQis is rippliGcl to a fonra^la I' by ? <--P, i- S. (Tha dot ia 
oniy to disiiinguiGli froK truncntloLi.) 

In seriGG procoaslng ?., i3 luctclied by. » to F, i.e., all sube::prG£."- 
;3i'oLtG, if It fnils^ P„ is tried, ciod so on. . • 

■■'■'. A 

In. paralle.1 processing P- is in;.ii;ched hy .- =■•: to Fj theii P., and so o:i<, 
X£ nil iiail i\t tbia levels i:iteti tha 5:irst E!!ji'be::pre::(3lc£'i o& % Id tried on 
all B.J ; and so oo^ 

Oaa can tai^ sclicscm nlisliiilyj a«g.j in S ■^- [?p [P^^ P^I^ ;?^i^[P^5 P-.^] 
Is applied pnri'J.le.li^i' after P., Ikis' baen applied serially aticl before P,, ii^ 
avspliad sarinllyA & cau-v^i t:h:i --r- iisplicG ^eri:ain;:ii:icii of the nl^orithm afte?- 
nppy.lca^:icn m: £hii5 prcduciricti..- ' " . 

One can Ivive S\^[BOL MR^.Y!?j t-jhose use is obvious „ SlGnients of lists 
can ba' of any typa including g03.M» '■,'.' 

Description, lista can be attaclied to variables of type FOM„ They 
eat.i also be at:£;:?iclied to sublists oi: a list giving a local descriptioci* Tans,, 

Kieaa local description lists attached to li do not interfere wltii the 
global deacriptiori list of an occurrGriCG of A oiitfjida tha list attached 

to T- . .•..■■■'■.-. 

■i and t ^^'■^^' operators vchich r^mih. and pop any ntams of type SYHBOLp 
Ihuc^ anch iitCTi is li!c^^ :r; stack n-cil iMciii tt is ucad in otlier ntntGiuants^ 



the value of it: is the value oa the top of the stacko 

Geaeralizatlon of For sfcatements : 

The <for clause is generalized to 

gOR Oymbolic expression^ ^<for lise« DO ( gAR/XLEL FOR 
<e2:pressioit> <-EmffiNTS OF <expressiori> DO and the <for listO to 

ELEI-ffiNTS OT <symbolic express ion> | 
AITRIWTES OF <symbolic eiipressioi^- 
^usj the indesc can take values from the value list or the description 
list of a SYMBOLIC object „ Also, one can have parallel execution as in 

PARAUJSL FOR [IpJjK] «- ELE^iENTS OF [[S], [T]^ [U'j] BO 
This means that the 1st clement of S, T» U are assigned to X, J^ XC, 
respectively and the DO performed, then the 2nd elements , and so ono 

Def aul t ac tions 

If any list runs out before another the value MIL; is used. This 
value HHj is used in other esdiaustion situations such as looking for the 
value associated with a non-existent attribute. 

Indirect accessing brackets 

If A «- oB; B <- .C; C <- oD; 
then using A causes it to return B as value. For indirect accessing one 
can use angular brackets < >, 

Tiius <A?»; returns C, 
«A» returns D. 

FORM variables - Part 2 

ISyaluatio n of Foannulae 

The EVAL operator provides additional evaluation capability ,> Having 
computed a symbolic formula, we can substitute numerical values for the 
variables and find the value, 

e„s., F «-.X t .Y; Z <-EVAL (X, Y) 1^0,2); 
oubstitute& 3 fot X and 2 for Y and puts 9 in Z. Ono can use EVAL to sub=. 
stitwta other symbolic values-.' 

e.go5 F <-aX t *Y; 22 «- EVAL (iX^ ^Y) F (.A^ ,B) 
gives ^i t B as value of Z, 

EVAL applied to formula of more general Algol like types will execute them, 
Thus« 
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jJl^g. (S) F (jgUE) ■'■'■' T;:ai rcJ:ai:o A. 

Sitail'irly dotted , procadures, dociiGd :2r:';t3yf; oi" dot;':ed,.usoign!r':or.i: .ntatGniGnui:: 
are executed by BVAL. Durinc ov-rilur.tion EVAL doaa i-:os;e obvilou^;' iiiniplific:'!- 
ticns like A ;- Q -:• 1 . 

There are tuo other ralnted operators, SUBS i^ad -MH^ACE. . .jSUBS does 
a ctraightfoJJTMird f:ubfli;ltuJ:ion 'leithoui: evaltintior:' or Gliupll::ic«tion 

' SI'L?ii^9^ replaces all ntorar; in tlie formula by their curreLri:. 'caliiG and 
evaluates it, . • 

F -c-X -i-Y -'Zi 

Y <-l; Z <--2; 
21 ^REPLMIE (F): ' gives ii •;!• 2. . ' 

Z2 <~SU5S C^, .2) F (3, 4); " X -J- 12; 



Thus, EVAL ^niici SUBS oaly aubntitute for tha objGces naoied la tlietr 
parameter lists j, hut FjjPLAGE substitutes .for all* 

SUBS^ doas no evaluation; juat selected substitutioas, 
REHjAGE^ does siA-aliiatloa a^ter total- st!bstitutioa« 
EVAIi doas evaluation after SGlected substitutions. 

Hote the dots on tbe r«h,3. of producjtions; this is becoiise tlia roh.s, 
is. evalimted; wlian it is foriiied jiict bafora isse. The Eatcli and dxtracCioEi 
is tliQVL done; RBBX*ACE then oparates on the r.h.s„ aad finally E.VAL is 
applied, all by the syfstesn. 

Mote J also, that tlie substitution arguraeiits to HVAL and SUBg^^ are, 
ia general a symbolic exprasalrins which are eval?jated; the 1st lis J: like 
(^Yj .Z) above must e\'aluatG to atojns,. Qsd that EVAL, SUBS «iid REPLACE 
^•jill' only 7.*epl^CQ'2?0224 ato';},i03 not-Sitom^i _Qi other typec* •' 



Eecarsi'^jfc patterns .-. "' ."■' '■ 

If ail elesiGat of: a pattern ia a pattern;, this pattera is nzatched, 
ThuSi ;ihG pottsrn 

SUM <-.[of(suii}':*^(sum):p o?(?)] 

tjhcD K^tched, i7 « uj SUIIa will tratch all aubeiipressionc. This cnn be used 

to e::trcct all the eleraento of a foraiukis .; 

moLXim vm^iyuusu p'(x); fobh K; 

BEGJ.H V v-'SUR; INSERT 11 AFTER LAST OF L; EiTD; 
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Exercises in Formula Algol 

1. Write a program to take questions and answers and set up a discrimi nation 
net a i.e., a question is a' list of properties that the retrieved object 
must satisfy something like 

[QIU, COMPCENTER, HiERE, AHBOND] 

and a fact is an associated symbol PHllSKo The discrimination ttet is 
of the form 

"""Si—. 



HO^ 



cko ? 



Pitt 



CoMPC^lJ 



/ 



-e^ 



V 



7 



^ 



Wo 



/iHBowD 







WHO 



:s^ 



F/ict:PH»» 



vCEs 



and the answer to a question can be retrieved by testing successive 
elements, li^ien a new fact is added, e.gop 

[ClIU, COMPCENTER, miO, MANAGER] 

one must test successively until a failure is obtained and then 
modify the net to add the new fact„ Design a data form and a dis- 
crimination sat to act as an a?;itomatic user consultant. One would 
like to be able to answer questions x^hich cut across the i3;et also^ 
'S.g.g give 'a list of all people in room PHllSlCo As there is no 
input in Formula Algol, the cards must be compiled in as a symbol 
array CARDj say. 

2o Given a polynomial in form 

eicpand it and collect like terms. 

3o Given a rational function, clear all fractions. 

4, Solve a differential equation by computing the first H terms of a 
Taylor Series. 
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Transform a formula in the pr ^positional calculus into disjunctive 
normal fornio 

Write a program to give numerical values to an accuracy e of Lsgendre 
Polynomials P^ (x) for arbitrary ra^ 1, 3;-, Co You can use any 
generation method you think sui table « 

Write a 'i,XSP interpreter in formula algols possibly along the 
following lines: 

Represent (A-B) by (AvtB) 

then define symbol procedures 
symbol procedure car (x) ; symbol :c; begin 

if 2: ==== y: any ^ any then car «- y else begin print (oUNDEB'XNED) 
go to halt; end end; 



